VERSION 5.00
Begin VB.Form frmCompartirComision 
   BackColor       =   &H000000C0&
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Compartir Mi Comision"
   ClientHeight    =   7530
   ClientLeft      =   60
   ClientTop       =   330
   ClientWidth     =   7950
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   Picture         =   "frmCompartirComision.frx":0000
   ScaleHeight     =   7530
   ScaleWidth      =   7950
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtCodigoVendedor 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Left            =   3120
      TabIndex        =   1
      Top             =   4560
      Width           =   1815
   End
   Begin VB.TextBox txtCodigoContrato 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   405
      Left            =   360
      TabIndex        =   0
      Top             =   1440
      Width           =   1815
   End
   Begin VB.CommandButton cmdAceptar 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Aceptar"
      Height          =   495
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6360
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Salir"
      Height          =   495
      Left            =   4680
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   6360
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   7875
      Left            =   6120
      Picture         =   "frmCompartirComision.frx":422F
      Top             =   -360
      Width           =   2775
   End
   Begin VB.Label lblUnidadVentas 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   360
      TabIndex        =   13
      Top             =   4080
      Width           =   5655
   End
   Begin VB.Label lblNombreAsesor2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   360
      TabIndex        =   12
      Top             =   5280
      Width           =   5535
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   360
      X2              =   5880
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Transparent
      Caption         =   "Asesor que Hizo la Venta"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   360
      TabIndex        =   11
      Top             =   4680
      Width           =   3855
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      X1              =   360
      X2              =   5880
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Label lblNombredelAsesor 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   495
      Left            =   360
      TabIndex        =   10
      Top             =   3720
      Width           =   5655
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "Asesor que Introdujo la Venta"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   3240
      Width           =   4455
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      X1              =   360
      X2              =   5880
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Label Label6 
      Caption         =   "Label6"
      Height          =   255
      Left            =   6480
      TabIndex        =   8
      Top             =   7200
      Width           =   1455
   End
   Begin VB.Label lblNombreCliente 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   2760
      Width           =   5655
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   " Cliente"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   2280
      Width           =   2055
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H000000C0&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Comision Compartida"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   360
      Width           =   5655
   End
   Begin VB.Label Label3 
      BackColor       =   &H00800000&
      BackStyle       =   0  'Transparent
      Caption         =   "Contrato"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1080
      Width           =   1935
   End
End
Attribute VB_Name = "frmCompartirComision"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private VendedorBeneficiado, UnidadVentas, UnidadVentasBeneficiado As String
Private Sub Command1_Click()
        
End Sub

Private Sub cmdAceptar_Click()
On Error GoTo chass
        If txtCodigoContrato.Text = "" Then
            MsgBox "El codigo de contrato es muy importante ", vbCritical
            cmdAceptar.Enabled = False
            Exit Sub
        End If
        
'        'Ingresar los codigo de los empleados a una tabla  que se llamara ComisionCompartida
'        If DE.rsMComisionCompartida.State = adStateOpen Then DE.rsMComisionCompartida.Close
'        DE.MComisionCompartida UCase(txtCodigoContrato.Text), UCase(txtCodigoVendedor.Text), UCase(VendedorBeneficiado), UCase(UnidadVentasBeneficiado)
        
        
'        ''busco el de empleado del que vendio verdaderamente
'         Dim rsTipoEmpleado As ADODB.Recordset
'        Set rsTipoEmpleado = New ADODB.Recordset
'        rsTipoEmpleado.Open "SELECT  iCodigo_TipoEmpleado From dbo.plaEmpleados where codigo_empleado = '" & txtCodigoVendedor.Text & "'", DE.Cnn, adOpenDynamic, adLockReadOnly
'        tipo = rsTipoEmpleado.Fields("iCodigo_TipoEmpleado").Value
'
'        'aca vere la informacion del contrato con el vendedor que lo metio (Emergencia)
'        If DE.rsContratoCompartir.State = adStateOpen Then DE.rsContratoCompartir.Close
'        DE.ContratoCompartir UCase(VendedorBeneficiado), UCase(txtCodigoContrato.Text)
'
'            If Not DE.rsContratoCompartir.EOF Then
'                With DE.rsContratoCompartir
'             For i = 1 To DE.rsContratoCompartir.RecordCount
'                    Pla_FechaPlanilla = .Fields("Pla_FechaPlanilla")
'                    Pla_PeriodoVenta = .Fields("Pla_PeriodoVenta")
'                    Pla_Emp_Id_Empleado = .Fields("Pla_Emp_Id_Empleado")
'                    Pla_Vta_Codigo = .Fields("Pla_Vta_Codigo")
'                    Pla_Prd_Codigo = .Fields("Pla_Prd_Codigo")
'                    Pla_ValorProducto = .Fields("Pla_ValorProducto")
'                    Pla_CuotaComision = .Fields("Pla_CuotaComision")
'                    Pla_TipoComision = .Fields("Pla_TipoComision")
'                    Pla_ValorComision = .Fields("Pla_ValorComision")
'                    Pla_PorcComision = .Fields("Pla_PorcComision")
'                    Pla_NumDocPagoCliente = .Fields("Pla_NumDocPagoCliente")
'                    Pla_DivisionOrigen = .Fields("Pla_DivisionOrigen")
'                    Valor_Excedente = .Fields("Valor_Excedente")
'                    TipoEmpleado = .Fields("TipoEmpleado")
'                    fechaPago = .Fields("fechaPago")
'                    valorpagos = .Fields("valorpagos")
'                    VentaPropia = .Fields("VentaPropia")
'
'                DE.PlaMDetallecomisionM "I", Pla_FechaPlanilla, Pla_PeriodoVenta, txtCodigoVendedor.Text, _
'                Pla_Vta_Codigo, Pla_Prd_Codigo, Pla_ValorProducto, 1, Pla_TipoComision, _
'                Pla_ValorComision, Pla_PorcComision, Pla_NumDocPagoCliente, Pla_DivisionOrigen, _
'                Valor_Excedente, tipo, fechaPago, valorpagos, "1"
'
'                DE.rsContratoCompartir.MoveNext
'                Next i
                    
'                'actualiza el campo VentaPropia a "NO" al que hizo el favor de meter la venta
'                DE.Cnn.Execute "Update sacf_planillas..PlaDetallecomisionM set VentaPropia = '0' where Pla_Vta_Codigo = '" & UCase(txtCodigoContrato.Text) & "' and Pla_Emp_Id_Empleado = '" & Pla_Emp_Id_Empleado & "' and Pla_FechaPlanilla = '" & Pla_FechaPlanilla & "'"
'
'                'ahora parto la comision en 2
'                DE.Cnn.Execute "Update sacf_planillas..PlaDetallecomisionM set Pla_ValorComision = (Pla_ValorComision / 2)  where Pla_Vta_Codigo = '" & UCase(txtCodigoContrato.Text) & "' and Pla_Emp_Id_Empleado = '" & Pla_Emp_Id_Empleado & "' and Pla_FechaPlanilla = '" & Pla_FechaPlanilla & "'"
'                DE.Cnn.Execute "Update sacf_planillas..PlaDetallecomisionM set Pla_ValorComision = (Pla_ValorComision / 2)  where Pla_Vta_Codigo = '" & UCase(txtCodigoContrato.Text) & "' and Pla_Emp_Id_Empleado = '" & txtCodigoVendedor.Text & "' and Pla_FechaPlanilla = '" & Pla_FechaPlanilla & "'"
'
'                DE.Cnn.Execute "delete sacf_planillas..PlaDetallecomisionM where Pla_Vta_Codigo = '" & Trim(UCase(txtCodigoContrato.Text)) & "' and ( Pla_Emp_Id_Empleado <> '" & txtCodigoVendedor.Text & "' and  Pla_Emp_Id_Empleado <> '" & Trim(Pla_Emp_Id_Empleado) & "') and Pla_FechaPlanilla = '" & Pla_FechaPlanilla & "'"
'                End With
'            End If
'
'
'        ''agrego a los empleados que ganan sobre este vendedor
'        If DE.rslosasignados.State = adStateOpen Then DE.rslosasignados.Close
'        DE.losasignados UCase(txtCodigoVendedor.Text)
'
'          If Not DE.rslosasignados.EOF Then
'           With DE.rslosasignados
'
'             For X = 1 To DE.rslosasignados.RecordCount
'               Elempleado = .Fields("Codigo_Empleado")
'
'
'                ''busco el de empleado del que vendio verdaderamente
'                 Dim rsTipoEmpleado2 As ADODB.Recordset
'                Set rsTipoEmpleado2 = New ADODB.Recordset
'                rsTipoEmpleado2.Open "SELECT  iCodigo_TipoEmpleado From dbo.plaEmpleados where codigo_empleado = '" & .Fields("Codigo_Empleado") & "'", DE.Cnn, adOpenDynamic, adLockReadOnly
'                tipoo = rsTipoEmpleado2.Fields("iCodigo_TipoEmpleado").Value
'
'                If Elempleado <> UCase(txtCodigoVendedor.Text) Then
'                    'aca vere la informacion del contrato con el vendedor que lo metio (Emergencia)
'                    If DE.rsContratoCompartir.State = adStateOpen Then DE.rsContratoCompartir.Close
'                    DE.ContratoCompartir UCase(VendedorBeneficiado), UCase(txtCodigoContrato.Text)
'
'                      If Not DE.rsContratoCompartir.EOF Then
'                       With DE.rsContratoCompartir
'                         For i = 1 To DE.rsContratoCompartir.RecordCount
'                                Pla_FechaPlanilla = .Fields("Pla_FechaPlanilla")
'                                Pla_PeriodoVenta = .Fields("Pla_PeriodoVenta")
'                                Pla_Vta_Codigo = .Fields("Pla_Vta_Codigo")
'                                Pla_Prd_Codigo = .Fields("Pla_Prd_Codigo")
'                                Pla_ValorProducto = .Fields("Pla_ValorProducto")
'                                Pla_CuotaComision = .Fields("Pla_CuotaComision")
'                                Pla_TipoComision = .Fields("Pla_TipoComision")
'                                Pla_ValorComision = .Fields("Pla_ValorComision")
'                                Pla_PorcComision = .Fields("Pla_PorcComision")
'                                Pla_NumDocPagoCliente = .Fields("Pla_NumDocPagoCliente")
'                                Pla_DivisionOrigen = .Fields("Pla_DivisionOrigen")
'                                Valor_Excedente = .Fields("Valor_Excedente")
'                                TipoEmpleado = .Fields("TipoEmpleado")
'                                fechaPago = .Fields("fechaPago")
'                                valorpagos = .Fields("valorpagos")
'                                VentaPropia = .Fields("VentaPropia")
'
'                            DE.PlaMDetallecomisionM "I", Pla_FechaPlanilla, Pla_PeriodoVenta, Elempleado, _
'                            Pla_Vta_Codigo, Pla_Prd_Codigo, Pla_ValorProducto, 1, Pla_TipoComision, _
'                            Pla_ValorComision, Pla_PorcComision, Pla_NumDocPagoCliente, Pla_DivisionOrigen, _
'                            Valor_Excedente, tipoo, fechaPago, valorpagos, "0"
'                            DE.rsContratoCompartir.MoveNext
'                         Next i
'                       End With
'                      End If
'                End If ' es el del codigo diferente
'                DE.rslosasignados.MoveNext
'             Next X
'           End With  ' este es del del rslosasignados
'       End If
'
        'en el encabezado de ventas tendre que cambiar la unidad de ventas y el codigo del vendedor
        'cambiar el que tiene por el del "VendedorBeneficiado" y su unidad de ventas , para que se le calcule
        'la comision a el y a su gerente
        If DE.rsCambiarVendedor.State = adStateOpen Then DE.rsCambiarVendedor.Close
        DE.CambiarVendedor UCase(txtCodigoContrato.Text), UCase(txtCodigoVendedor.Text), UCase(UnidadVentas)

        
        

        LimpiarObjetos Me
              
        
        MsgBox "Operacion Realizada Satisfactoriamente", vbOKOnly
        lblNombreCliente.Caption = ""
        lblNombredelAsesor.Caption = ""
        lblUnidadVentas.Caption = ""
        lblNombreAsesor2.Caption = ""
Exit Sub
chass:
    
    MsgBox error
End Sub

Private Sub Command2_Click()
        Unload Me
End Sub

Private Sub Form_Load()
    Left = Screen.Width / 2 - Width / 2
    Top = (Screen.Height / 2 - Height / 2) - 800
    cmdAceptar.Enabled = False

End Sub

Private Sub txtCodigoAsesor_KeyDown(KeyCode As Integer, Shift As Integer)
HacerTab KeyCode
End Sub

Private Sub txtCodigoAsesor_LostFocus()
                  
   CodigoPublico = ""
   CodigoPublico = UCase(txtCodigoAsesor.Text)
   MostrarRegistroEmpleados


End Sub
Private Sub MostrarRegistroEmpleados()
    On Error Resume Next
        
    
    If DE.rsBusqueEmpleado2.State = adStateOpen Then DE.rsBusqueEmpleado2.Close
    DE.BusqueEmpleado2 CodigoPublico
    
    If DE.rsBusqueEmpleado2.EOF Then
        MsgBox "Codigo de Asesor no existe"
        Exit Sub
    End If
    
    
     With DE.rsBusqueEmpleado2
       txtCodigoAsesor.Text = .Fields("Codigo_Empleado")
       lblAsesorVentas.Caption = .Fields("nombres")
              
    End With
Exit Sub
Errores:
    Errores Err, error
End Sub


Private Sub txtCodigoContrato_KeyDown(KeyCode As Integer, Shift As Integer)
    HacerTab KeyCode
End Sub

Private Sub txtCodigoContrato_LostFocus()

    'buscar datos del contrato
    On Error Resume Next
    If txtCodigoContrato.Text = "" Then Exit Sub
    txtCodigoContrato.Text = UCase(txtCodigoContrato.Text)
    
    If DE.rsDatosContrato.State = adStateOpen Then DE.rsDatosContrato.Close
    DE.DatosContrato UCase(txtCodigoContrato)
       
    If DE.rsDatosContrato.EOF Then
        MsgBox "Contrato no existe...."
        Exit Sub
    End If
    
   With DE.rsDatosContrato
      lblNombreCliente.Caption = .Fields("NombreCliente")
      lblNombredelAsesor.Caption = .Fields("nombres")
      lblUnidadVentas.Caption = "Unidad  " & .Fields("codigo_unidad_de_venta")
      VendedorBeneficiado = RTrim(UCase(.Fields("codigo_vendedor")))
      UnidadVentasBeneficiado = .Fields("codigo_unidad_de_venta")
   End With
    
End Sub

Private Sub txtCodigoVendedor_KeyDown(KeyCode As Integer, Shift As Integer)
    HacerTab KeyCode
End Sub

Private Sub txtCodigoVendedor_LostFocus()
    txtCodigoVendedor.Text = UCase(txtCodigoVendedor.Text)

   If DE.rsBusqueEmpleado2.State = adStateOpen Then DE.rsBusqueEmpleado2.Close
    DE.BusqueEmpleado2 UCase(txtCodigoVendedor.Text)
    
    If txtCodigoVendedor = "" Then Exit Sub
    
    If DE.rsBusqueEmpleado2.EOF Then
        MsgBox "Este asesor no existe o esta inactivo"
        cmdAceptar.Enabled = False
        Exit Sub
    End If
    
     With DE.rsBusqueEmpleado2
        txtCodigoVendedor.Text = .Fields("Codigo_Empleado")
        lblNombreAsesor2.Caption = .Fields("nombres")
        UnidadVentas = .Fields("codigo_unidad_de_venta")
        cmdAceptar.Enabled = True
        
    End With






End Sub
